home *** CD-ROM | disk | FTP | other *** search
/ SGI MineSet 2.5 / SGI MineSet 2.5.iso / dist / imgtools.idb / usr / share / src / imgtcl / rotsharpen.z / rotsharpen
Text File  |  1998-05-12  |  424b  |  18 lines
  1. #ilTCL
  2. #
  3. # This script is invoked as an image file using any IL based tool like
  4. # imgview.  You pass the file name of the input with the syntax:
  5. #
  6. #   imgview rotsharpen%<file-name>
  7. #
  8. #  You can also optionally pass a rotation angle:
  9. #
  10. #   imgview rotsharpen%<file-name>%angle=30
  11. #
  12.  
  13. ilFileImgOpen img [lindex $argv 1]
  14. if {![info exists angle]} { set angle 0 } 
  15. ilRotZoomImg rz img $angle
  16. ilSharpenImg sharp rz
  17. return $sharp
  18.